home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / kb_sndkn / kb_snd3e.bas < prev    next >
BASIC Source File  |  1991-10-18  |  7KB  |  237 lines
  1. 1000 REM * / オシャベリ キーボード / *
  2. 1010 REM * / PRESENTED BY ペーパ！（PEC00657/Nifty-Serve 兵頭) / *
  3. 1020 REM * / ｶﾅ半角状態でｷｰﾎﾞｰﾄﾞの打鍵対応のｶﾅを発声する  / *
  4. 1030 CLS:CLEAR 
  5. 1040 DIM ﾖﾒﾅｲ%(40000):DIM A%(16000)
  6. 1050 LOAD@ "YOMENAI.SND",ﾖﾒﾅｲ%
  7. 1060 ON ERROR GOTO *ERRORPRC
  8. 1070 GOTO *START
  9. 1080 *START
  10. 1090 MA=0
  11. 1100 INPUT "ゆっくりで良い(ﾒﾓﾘは１Ｍ以内で動作させたい）=> 1をおして下さい｡                 できるだけ早く(ﾒﾓﾘはたくさんある)           => 2をおして下さい｡";MA
  12. 1110 A$="":ON MA GOTO *ｷｰTOﾌｧｲﾙ,*ｷｰTO配列
  13. 1120 *ｷｰTOﾌｧｲﾙ
  14. 1130 REM */ A-MAIN /*
  15. 1140 PRINT " お待たせしました｡ どうぞ キー入力してください｡"
  16. 1150     A$=""
  17. 1160     A$=INKEY$
  18. 1170     IF A$="" OR A$=" " OR A$="  " THEN 1190
  19. 1180     ON KTYPE (A$,1)+1 GOSUB *ｷｰｶﾅANC,*日本語
  20. 1190     GOTO 1150
  21. 1200 *ｷｰｶﾅANC
  22. 1210     PRINT A$:AK=ASC(A$):B$=HEX$(AK)
  23. 1220     LOAD@ B$+".SND",A%
  24. 1230     PCMPLAY A%,127
  25. 1240     RETURN
  26. 1250 *日本語
  27. 1260     PRINT A$
  28. 1270     PCMPLAY ﾖﾒﾅｲ%,127
  29. 1280     RETURN
  30. 1290 *ｷｰTO配列
  31. 1300 CLEAR,,,1600000
  32. 1310 DIM ﾖﾒﾅｲ%(40000):LOAD@ "YOMENAI.SND",ﾖﾒﾅｲ%
  33. 1320 GOSUB *ｶﾅSND読込
  34. 1330 REM */ B-MAIN /*
  35. 1340     A$=""
  36. 1350     A$=INKEY$
  37. 1360     IF A$="" OR A$=" " OR A$="  " THEN 1380
  38. 1370     ON KTYPE (A$,1)+1 GOSUB *ｶﾅANC,*日本語
  39. 1380     GOTO 1340
  40. 1390 *ｶﾅANC
  41. 1400     PRINT A$:A=ASC(A$)
  42. 1410     IF A<=165 OR A>=222 GOTO *ERRORPRC ELSE *ｶﾅ発声
  43. 1420 *ｶﾅ発声
  44. 1430     IF A$="ｱ" THEN *ｱ発声 
  45. 1440     IF A$="ｲ" THEN *ｲ発声 
  46. 1450     IF A$="ｳ" THEN *ｳ発声 
  47. 1460     IF A$="ｴ" THEN *ｴ発声 
  48. 1470     IF A$="ｵ" THEN *ｵ発声 
  49. 1480     IF A$="ｶ" THEN *ｶ発声 
  50. 1490     IF A$="ｷ" THEN *ｷ発声 
  51. 1500     IF A$="ｸ" THEN *ｸ発声 
  52. 1510     IF A$="ｹ" THEN *ｹ発声 
  53. 1520     IF A$="ｺ" THEN *ｺ発声 
  54. 1530     IF A$="ｻ" THEN *ｻ発声 
  55. 1540     IF A$="ｼ" THEN *ｼ発声 
  56. 1550     IF A$="ｽ" THEN *ｽ発声 
  57. 1560     IF A$="ｾ" THEN *ｾ発声 
  58. 1570     IF A$="ｿ" THEN *ｿ発声 
  59. 1580     IF A$="ﾀ" THEN *ﾀ発声 
  60. 1590     IF A$="ﾁ" THEN *ﾁ発声 
  61. 1600     IF A$="ﾂ" THEN *ﾂ発声 
  62. 1610     IF A$="ﾃ" THEN *ﾃ発声 
  63. 1620     IF A$="ﾄ" THEN *ﾄ発声 
  64. 1630     IF A$="ﾅ" THEN *ﾅ発声 
  65. 1640     IF A$="ﾆ" THEN *ﾆ発声 
  66. 1650     IF A$="ﾇ" THEN *ﾇ発声 
  67. 1660     IF A$="ﾈ" THEN *ﾈ発声 
  68. 1670     IF A$="ﾉ" THEN *ﾉ発声 
  69. 1680     IF A$="ﾊ" THEN *ﾊ発声 
  70. 1690     IF A$="ﾋ" THEN *ﾋ発声 
  71. 1700     IF A$="ﾌ" THEN *ﾌ発声 
  72. 1710     IF A$="ﾍ" THEN *ﾍ発声 
  73. 1720     IF A$="ﾎ" THEN *ﾎ発声 
  74. 1730     IF A$="ﾏ" THEN *ﾏ発声 
  75. 1740     IF A$="ﾐ" THEN *ﾐ発声 
  76. 1750     IF A$="ﾑ" THEN *ﾑ発声 
  77. 1760     IF A$="ﾒ" THEN *ﾒ発声 
  78. 1770     IF A$="ﾓ" THEN *ﾓ発声 
  79. 1780     IF A$="ﾔ" THEN *ﾔ発声 
  80. 1790     IF A$="ﾕ" THEN *ﾕ発声 
  81. 1800     IF A$="ﾖ" THEN *ﾖ発声 
  82. 1810     IF A$="ﾗ" THEN *ﾗ発声 
  83. 1820     IF A$="ﾘ" THEN *ﾘ発声 
  84. 1830     IF A$="ﾙ" THEN *ﾙ発声 
  85. 1840     IF A$="ﾚ" THEN *ﾚ発声 
  86. 1850     IF A$="ﾛ" THEN *ﾛ発声 
  87. 1860     IF A$="ﾜ" THEN *ﾜ発声 
  88. 1870     IF A$="ﾝ" THEN *ﾝ発声 
  89. 1880     IF A$="ｦ" THEN *ｦ発声 
  90. 1890    GOTO *ERRORPRC
  91. 1900 *ｱ発声:PCMPLAY ｱ%,127:GOTO 1330
  92. 1910 *ｲ発声:PCMPLAY ｲ%,127:GOTO 1330
  93. 1920 *ｳ発声:PCMPLAY ｳ%,127:GOTO 1330
  94. 1930 *ｴ発声:PCMPLAY ｴ%,127:GOTO 1330
  95. 1940 *ｵ発声:PCMPLAY ｵ%,127:GOTO 1330
  96. 1950 *ｶ発声:PCMPLAY ｶ%,127:GOTO 1330
  97. 1960 *ｷ発声:PCMPLAY ｷ%,127:GOTO 1330
  98. 1970 *ｸ発声:PCMPLAY ｸ%,127:GOTO 1330
  99. 1980 *ｹ発声:PCMPLAY ｹ%,127:GOTO 1330
  100. 1990 *ｺ発声:PCMPLAY ｺ%,127:GOTO 1330
  101. 2000 *ｻ発声:PCMPLAY ｻ%,127:GOTO 1330
  102. 2010 *ｼ発声:PCMPLAY ｼ%,127:GOTO 1330
  103. 2020 *ｽ発声:PCMPLAY ｽ%,127:GOTO 1330
  104. 2030 *ｾ発声:PCMPLAY ｾ%,127:GOTO 1330
  105. 2040 *ｿ発声:PCMPLAY ｿ%,127:GOTO 1330
  106. 2050 *ﾀ発声:PCMPLAY ﾀ%,127:GOTO 1330
  107. 2060 *ﾁ発声:PCMPLAY ﾁ%,127:GOTO 1330
  108. 2070 *ﾂ発声:PCMPLAY ﾂ%,127:GOTO 1330
  109. 2080 *ﾃ発声:PCMPLAY ﾃ%,127:GOTO 1330
  110. 2090 *ﾄ発声:PCMPLAY ﾄ%,127:GOTO 1330
  111. 2100 *ﾅ発声:PCMPLAY ﾅ%,127:GOTO 1330
  112. 2110 *ﾆ発声:PCMPLAY ﾆ%,127:GOTO 1330
  113. 2120 *ﾇ発声:PCMPLAY ﾇ%,127:GOTO 1330
  114. 2130 *ﾈ発声:PCMPLAY ﾈ%,127:GOTO 1330
  115. 2140 *ﾉ発声:PCMPLAY ﾉ%,127:GOTO 1330
  116. 2150 *ﾊ発声:PCMPLAY ﾊ%,127:GOTO 1330
  117. 2160 *ﾋ発声:PCMPLAY ﾋ%,127:GOTO 1330
  118. 2170 *ﾌ発声:PCMPLAY ﾌ%,127:GOTO 1330
  119. 2180 *ﾍ発声:PCMPLAY ﾍ%,127:GOTO 1330
  120. 2190 *ﾎ発声:PCMPLAY ﾎ%,127:GOTO 1330
  121. 2200 *ﾏ発声:PCMPLAY ﾏ%,127:GOTO 1330
  122. 2210 *ﾐ発声:PCMPLAY ﾐ%,127:GOTO 1330
  123. 2220 *ﾑ発声:PCMPLAY ﾑ%,127:GOTO 1330
  124. 2230 *ﾒ発声:PCMPLAY ﾒ%,127:GOTO 1330
  125. 2240 *ﾓ発声:PCMPLAY ﾓ%,127:GOTO 1330
  126. 2250 *ﾔ発声:PCMPLAY ﾔ%,127:GOTO 1330
  127. 2260 *ﾕ発声:PCMPLAY ﾕ%,127:GOTO 1330
  128. 2270 *ﾖ発声:PCMPLAY ﾖ%,127:GOTO 1330
  129. 2280 *ﾗ発声:PCMPLAY ﾗ%,127:GOTO 1330
  130. 2290 *ﾘ発声:PCMPLAY ﾘ%,127:GOTO 1330
  131. 2300 *ﾙ発声:PCMPLAY ﾙ%,127:GOTO 1330
  132. 2310 *ﾚ発声:PCMPLAY ﾚ%,127:GOTO 1330
  133. 2320 *ﾛ発声:PCMPLAY ﾛ%,127:GOTO 1330
  134. 2330 *ﾜ発声:PCMPLAY ﾜ%,127:GOTO 1330
  135. 2340 *ﾝ発声:PCMPLAY ﾝ%,127:GOTO 1330
  136. 2350 *ｦ発声:PCMPLAY ｦ%,127:GOTO 1330
  137. 2360 *ｶﾅSND読込
  138. 2370 PRINT " 音声ファイルをよみこんでます｡ しばらくお待ち下さい｡"
  139. 2380    DIM ｱ%(16000)
  140. 2390    DIM ｲ%(16000)
  141. 2400    DIM ｳ%(16000)
  142. 2410    DIM ｴ%(16000)
  143. 2420    DIM ｵ%(16000)
  144. 2430    DIM ｶ%(16000)
  145. 2440    DIM ｷ%(16000)
  146. 2450    DIM ｸ%(16000)
  147. 2460    DIM ｹ%(16000)
  148. 2470    DIM ｺ%(16000)
  149. 2480    DIM ｻ%(16000)
  150. 2490    DIM ｼ%(16000)
  151. 2500    DIM ｽ%(16000)
  152. 2510    DIM ｾ%(16000)
  153. 2520    DIM ｿ%(16000)
  154. 2530    DIM ﾀ%(16000)
  155. 2540    DIM ﾁ%(16000)
  156. 2550    DIM ﾂ%(16000)
  157. 2560    DIM ﾃ%(16000)
  158. 2570    DIM ﾄ%(16000)
  159. 2580    DIM ﾅ%(16000)
  160. 2590    DIM ﾆ%(16000)
  161. 2600    DIM ﾇ%(16000)
  162. 2610    DIM ﾈ%(16000)
  163. 2620    DIM ﾉ%(16000)
  164. 2630    DIM ﾊ%(16000)
  165. 2640    DIM ﾋ%(16000)
  166. 2650    DIM ﾌ%(16000)
  167. 2660    DIM ﾍ%(16000)
  168. 2670    DIM ﾎ%(16000)
  169. 2680    DIM ﾏ%(16000)
  170. 2690    DIM ﾐ%(16000)
  171. 2700    DIM ﾑ%(16000)
  172. 2710    DIM ﾒ%(16000)
  173. 2720    DIM ﾓ%(16000)
  174. 2730    DIM ﾔ%(16000)
  175. 2740    DIM ﾕ%(16000)
  176. 2750    DIM ﾖ%(16000)
  177. 2760    DIM ﾗ%(16000)
  178. 2770    DIM ﾘ%(16000)
  179. 2780    DIM ﾙ%(16000)
  180. 2790    DIM ﾚ%(16000)
  181. 2800    DIM ﾛ%(16000)
  182. 2810    DIM ﾜ%(16000)
  183. 2820    DIM ﾝ%(16000)
  184. 2830    DIM ｦ%(16000)
  185. 2840    LOAD@ "B1.SND",ｱ%
  186. 2850    LOAD@ "B2.SND",ｲ%
  187. 2860    LOAD@ "B3.SND",ｳ%
  188. 2870    LOAD@ "B4.SND",ｴ%
  189. 2880    LOAD@ "B5.SND",ｵ%
  190. 2890    LOAD@ "B6.SND",ｶ%
  191. 2900    LOAD@ "B7.SND",ｷ%
  192. 2910    LOAD@ "B8.SND",ｸ%
  193. 2920    LOAD@ "B9.SND",ｹ%
  194. 2930    LOAD@ "BA.SND",ｺ%
  195. 2940    LOAD@ "BB.SND",ｻ%
  196. 2950    LOAD@ "BC.SND",ｼ%
  197. 2960    LOAD@ "BD.SND",ｽ%
  198. 2970    LOAD@ "BE.SND",ｾ%
  199. 2980    LOAD@ "BF.SND",ｿ%
  200. 2990    LOAD@ "C0.SND",ﾀ%
  201. 3000    LOAD@ "C1.SND",ﾁ%
  202. 3010    LOAD@ "C2.SND",ﾂ%
  203. 3020    LOAD@ "C3.SND",ﾃ%
  204. 3030    LOAD@ "C4.SND",ﾄ%
  205. 3040    LOAD@ "C5.SND",ﾅ%
  206. 3050    LOAD@ "C6.SND",ﾆ%
  207. 3060    LOAD@ "C7.SND",ﾇ%
  208. 3070    LOAD@ "C8.SND",ﾈ%
  209. 3080    LOAD@ "C9.SND",ﾉ%
  210. 3090    LOAD@ "CA.SND",ﾊ%
  211. 3100    LOAD@ "CB.SND",ﾋ%
  212. 3110    LOAD@ "CC.SND",ﾌ%
  213. 3120    LOAD@ "CD.SND",ﾍ%
  214. 3130    LOAD@ "CE.SND",ﾎ%
  215. 3140    LOAD@ "CF.SND",ﾏ%
  216. 3150    LOAD@ "D0.SND",ﾐ%
  217. 3160    LOAD@ "D1.SND",ﾑ%
  218. 3170    LOAD@ "D2.SND",ﾒ%
  219. 3180    LOAD@ "D3.SND",ﾓ%
  220. 3190    LOAD@ "D4.SND",ﾔ%
  221. 3200    LOAD@ "D5.SND",ﾕ%
  222. 3210    LOAD@ "D6.SND",ﾖ%
  223. 3220    LOAD@ "D7.SND",ﾗ%
  224. 3230    LOAD@ "D8.SND",ﾘ%
  225. 3240    LOAD@ "D9.SND",ﾙ%
  226. 3250    LOAD@ "DA.SND",ﾚ%
  227. 3260    LOAD@ "DB.SND",ﾛ%
  228. 3270    LOAD@ "DC.SND",ﾜ%
  229. 3280    LOAD@ "DD.SND",ﾝ%
  230. 3290    LOAD@ "A6.SND",ｦ%
  231. 3291  PRINT "お待たせしました､どうぞお楽しみ下さい｡"
  232. 3300    RETURN
  233. 3310 *ERRORPRC
  234. 3320    PRINT A$
  235. 3330    PCMPLAY ﾖﾒﾅｲ%,127:WAIT 300
  236. 3340    GOTO 1000
  237.